home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / debug / test-methods.scm < prev    next >
Text File  |  1995-10-13  |  623b  |  38 lines
  1. ; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.
  2.  
  3.  
  4. (define-generic g &g)
  5.  
  6. (define-method &g ((x :number)) 'win)
  7.  
  8. (define-method &g ((n :integer))
  9.   (if (= n 13)
  10.       (next-method)
  11.       'ok))
  12.  
  13. (define-method &g ((s :symbol))
  14.   (if (= s 13)
  15.       (next-method)
  16.       'ok))
  17.  
  18. ; (g 1/2) => 'win
  19. ; (g 10) => 'ok
  20. ; (g 13) => 'win
  21.  
  22.  
  23. (define-generic elt &elt)
  24.  
  25. (define-method &elt ((x :vector) y)
  26.   (vector-ref x y))
  27.  
  28. (define-method &elt ((x :string) y)
  29.   (string-ref x y))
  30.  
  31. (define-method &elt ((x :list) y)
  32.   (list-ref x y))
  33.  
  34. ; Generic length
  35.  
  36. ; (define-generic-function glength ((s :sequence)))
  37.  
  38.